home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 89 / maccd 89.iso / utilities / Mac OS X / ProcessWizard.dmg / ProcessWizard / ProcessWizard Daemon.app / Contents / Resources / kill.pl < prev    next >
Encoding:
Perl Script  |  2002-01-24  |  311 b   |  18 lines
  1. #!/usr/bin/perl
  2. # 
  3. # USAGE : kill.pl <pid> 
  4.  
  5. #($tmppath = $ARGV[0]) =~ s/(\&|'|")/\\\1/g; # escape &, ' and " chars with \
  6.  
  7. $pid = $ARGV[0];
  8.  
  9. open SHELL2, "kill -9 $pid |" or die "probleme";
  10.  
  11. # STDOUT: 
  12. # ou
  13. # STDERR: <pid>: Operation not permitted denied
  14. #       ou: <pid>: No such process
  15.  
  16. close SHELL2;
  17.  
  18. print ;